﻿Imports Lincker.US

Namespace Procesos
    Public Class Prueba
        Dim _Pruebas As IPrueba

        Public Overrides Sub cmdConfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfirmar.Click
            'Validaciones
            If Me.LnkDateTime1.Value >= Now.Date Then
                Display.MsgBox("La fecha debe ser anterior a la actual.", _
                    "Validaciones", Lincker.US.Display.MsgBoxTipos.msgAlerta)
            Else
                Try
                    'Ejecuta el método de negocios para depurar registros
                    Me._Pruebas.Depurar(LnkDateTime1.Value)
                    Display.MsgBox("Depuración terminada exitosamente.", _
                        "Información", Display.MsgBoxTipos.msgInformacion)
                Catch ex As Exception
                    'Informa de posibles errores
                    Display.ShowError(ex, "Error durante la ejecución del proceso")
                End Try
            End If
        End Sub

        Private Sub Prueba_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Try
                'Referencia el objeto de negocios relacionado
                _Pruebas = CType(RemotingHelper.getObject(GetType(IPrueba)), IPrueba)
                Me.ObjetoReglasNegocio = _Pruebas

            Catch ex As Exception
                Lincker.US.Display.ShowError(Me.ToString.Substring(0, Me.ToString.IndexOf(",")), Common.Env.Operador, Common.Env.Terminal)
            End Try
        End Sub
    End Class
End Namespace
